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STOR: A STORE INSTRUCTION FOR THE PDP-8 DISK MONITOR 


DECUS Program Library write-up 


DECUS No. 8-301 


ABSTRACT 

The PDP-8 has a monitor which can operate with the system device being either disk (unit 0) 
or magnetic tape (unit 3). For those systems having both disk and tape, the disk as a system 
device gives fast response but is awkward to load and is open to destruction by other users 
of the system. The tape on the other hand, gives very poor response time but has the ad¬ 
vantage of being private. (The user removes his tape with his monitor, programs, and files 
at the end of the working session.) 

This program provides a method for storing the disk monitor system on magnetic tape (unit 8) 
at the end of the working session, and for restarting the disk monitor at the beginninq of a 
new session on the PDP-8. 

LOADING 

The program is loaded using the disk monitor binary loader in two passes. 

.LOAD 

* IN—T: 

* 

*OPT-2 

ST= 

r r t r 

.SAVE STOR'. 6600-7377;6600 
OPERATION 

When the user wishes to save the disk monitor system, programs and files on the magnetic 
tape file on unit 8, he should simply execute the system program STOR. 

.STOR 

This causes the entire disk (unit 0) to be written out on the tape along with a loader program 
which is used to restart the monitor at some future time. Tbe time taken to write the disk 
onto tape is about three minutes. After the writing is complete the control is returned to the 
disk monitor. The working session can now be terminated by stopping the computer and re¬ 
moving theSave tape from unit 8. r 

J° St Si a / WOrking S f Sslon simpl y *°99 le in the regular DECtape monitor bootstrap at loca¬ 
tion 200 (given in the monitor handbook) and execute after theSave tape from the previous 
session has been placed on tape drive 8. This causes the A stored program on tape to restore 
the disk monitor system and to transfer control to the disk monitor once it has been restored 









In this way a user has the advantage of working with the disk monitor system (fast response) 
and also the security of a private Save tape. 

Lengthy reloading procedures to restore the disk monitor after a software crash are eliminated, 
and the monitor programs etc. remain private (on tape file). Monitor restarts at 7600 are 
unchanged. When loading the previously saved monitor files etc. from tape unit 8 via 
the bootstrap at address 200, it is not necessary to have the Write Enabled on. The system 
will load and start itself via the bootstrap at 200 with the write lock on. This provides 
further protection of the Save file (magtape with the previously stored disk monitor system, 
programs and files). 


The program also places the DECtape bootstrap at location 200 before returning to the disk 
monitor system after the Save file has been created on unit 8. 

MONITOR BOOTSTRAP 

7600 

1216 

4210 

1217 

3620 
1222 
4210 
5600 
0000 
6766 

3621 
6771 
5213 
5610 
0000 
7577 
7755 
7754 
0220 

Notice that this is identical to the bootstrap given on page 2-2 in the manual for the disk 
monitor system. 

EXECUTION TIME 

The program requires about 3 minutes to save the monitor on tape (unit 8) and about 3 minutes 
to restore the disk monitor via the bootstrap at 200. 

WARNING 

Do not try to access files from unit 8 or to write files on unit 8 while under monitor as this 
could destroy the saved copy of monitor on that tape unit. If tape files are to be used then 
first remove the Save tape after the monitor has been brought up via the bootstrap. Place the 
tape containing files of interest on the drive and use in the ordinary fashion. Similarly storing 
the disk monitor by executing .STOR will destroy all previously held files on that tape. 
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AGAIN 

7046 

A200 

731 1 

A71 77 

6746 

BL 

6676 

PLK 

7113 

BLKNO 

7115 

BLNO 

7240 

BOOT 

6733 

BT 

7357 

C 

6654 

CA 

7351 

CHOP 

7140 

COUNT 

6751 

COUNTP 

7237 

CURADD 

71 10 

Cl 

7120 

C2 

7121 

C3 

7122 

C4 

6757 

DOWHER 

7364 

DOWN 

7065 

DOWNP 

7272 

D1 

7306 

D2 

7307 

D3 

7312 

EAA 

7373 

EXAD 

6655 

G COUNT 

7375 

GO 

7102 

HERE 

7256 

JOE 

7144 

LC 

6753 

LOOP 

6620 

LOOPP 

7202 

lopy 

7132 

LUP 

7325 

MINE 

7143 

MM 1 

7376 

MM7 

7374 

MON1TR 

6742 

M200 

6747 

M400 

6750 

M400P 

7236 

M5 

6754 

M7 

6752 

M7000 

7111 

M 7576 

6743 

PBLKNO 

71 14 

PBOOT 

6732 

PBT 

7356 

PCA 

7022 

PCA1 

6745 

PDECT 

7123 

PGO 

6760 

PREAD 

6756 

PROP 

7141 







PSA 

7241 

PSTART 

7244 

PTBN 

7352 

PTCA 

7116 

PTWC 

7117 

PWC 

7021 

PWC1 

6744 

PWR1TE 

6755 

P5 

7242 

P7177 

7310 

P7576 

7243 

R 

7320 

READ 

7000 

RESTOR 

6740 

RND 

7142 

RUN 

7313 

S 

7245 

SA 

6741 

SHIFT 

6627 

SR 

7276 

TBK 

7305 

TBN 

7353 

TC 

6674 

TCA 

7355 

TRA 

7372 

TRAD 

6656 

TW 

6673 

TWC 

7354 

UN 

6675 

UNIT 

7112 

UP 

7047 

W 

6653 

WC 

7350 

WCOUNT 

7107 

WR1 TE 

7023 

W1 

661 1 


/SAVE STOR! 6600-7377J6600 





*6600 

6600 

7300 


CLA 

CLL 

6601 

1 357 


TAD 

C4 

6602 

6762 


6762 

6603 

4760 


JMS 

1 PGO 

6604 

1346 


TAD 

A7177 

6605 

3212 


DCA 

Wl + 1 

6606 

1347 


TAD 

M200 

6607 

3211 


DCA 

W1 

6610 

4755 


JMS 

I PWR1TE 

661 1 

0000 

Wl, 

0 


6612 

0000 


0 


6613 

0000 


0 


6614 

0000 


0 


6615 

7300 


CLA 

CLL 

6616 

1350 


TAD 

M400 

661 7 

3351 


DCA 

COUNT 

6620 

1350 

LOOP, 

TAD 

M400 

6621 

7041 


CIA 


6622 

1351 


TAD 

COUNT 

6623 

3256 


DCA 

TRAD 
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6624 

3255 


DCA EXAD 

6625 

1352 


TAD M7 

6626 

3353 


DCA LC 

6627 

7300 

SHIFT* 

CLA CLL 

6630 

1256 


TAD TRAD 

6631 

7004 


RAL 

6632 

3256 


DCA TRAD 

6633 

6634 

7004 


RAL 

6635 

3255 


DCA EXAD 

6636 

2353 


1SZ LC 

6637 

5227 


JMP SHIFT 

6640 

7300 


CLA CLL 

6641 

1255 


TAD EXAD 

6642 

7006 


RTL 

6643 

7006 


RTL 

6644 

7006 


RTL 

6645 

3255 


DCA EXAD 

6646 

1347 


TAD M200 

6647 

3253 


DCA W 

6650 

1346 


TAD A7177 

6651 

3254 


DCA C 

6652 

4756 


JMS 1 PREAD 

6653 

0000 

W* 

0 

6654 

0000 

C* 

0 

6655 

0000 

EXAD* 

0 

6656 

0000 

TRAD* 

0 

6657 

7300 


CLA CLL 

6660 

1350 


TAD M400 

6661 

7041 


CIA 

6662 

1351 


TAD COUNT 

6663 

7001 


1 AC 

6664 

3276 


DCA BL 

6665 

1347 


TAD M200 

6666 

3273 


DCA TW 

6667 

1346 


TAD A7177 

6670 

3274 


DCA TC 

6671 

3275 


DCA UN 

6672 

4755 


JMS 1 PWRITE 

6673 

0000 

TW* 

0 

6674 

0000 

TC* 

0 

6675 

0000 

UN* 

0 

6676 

0000 

BL* 

0 

6677 

7300 


CLA CLL 

6700 

2351 


1SZ COUNT 

6701 

5220 


JMP LOOP 

6702 

6762 


6762 


6703 

6704 

6705 

6706 

6707 
6710 
671 1 
6712 


1357 
4760 
6601 
6611 
1332 
3010 
1341 
301 1 


TAD C4 /REWIND 

JMS 1 P60 

6601 

6611 /CLEAR CONTROLS AND INITIALIZE 

TAD PBOOT 

DCA Z 10 

TAD SA 

DCA Z 11 
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6713 

1354 


TAD M5 

6714 

3351 


DCA COUNT 

671 5 

1410 


TAD 1 Z 10 

6716 

341 1 


DCA 1 Z 11 

6717 

2351 


1SZ COUNT 

6720 

5315 


JMP .-3 

6721 

1343 


TAD M7576 

6722 

3744 


DCA 1 PWC1 

6723 

1343 


TAD M7576 

6724 

3745 


DCA 1 PCA1 

6725 

6601 


6601 

6726 

661 1 


661 1 

6727 

6766 


6766 

6730 

4740 


JMS 1 RESTOR 

6731 

5742 


JMP 1 MON1TR 

6732 

6732 

PEOOT, 

BOOT-1 

6733 

6603 

BOOT, 

6603 

67 34 

6622 


6622 

6735 




6736 

5704 


5704 

6737 

7600 


7600 

6740 

7123 

RESTOR, 

PDECT 

6741 

0277 

SA, 

277 

6742 

0300 

MON1TR, 

300 

6743 

7576 

M7576, 

7576 

6744 

7750 

PWC1, 

7750 

6745 

7751 

PCA1, 

7751 

6746 

7177 

A7177, 

7177 

6747 

7600 

M200, 

-200 

6750 

7400 

M400, 

-400 

6751 

0000 

COUNT, 

0 

6752 

7771 

M7, 

-7 

6753 

0000 

LC, 

0 

6754 

7773 

M 5, 

-5 

6755 

7023 

PWR1TE, 

WRITE 

6756 

7000 

PREAD, 

READ 

6757 

0600 

C4, 

0600 

6760 

7102 

PGO, GO 

/CALLING SEQUENCE 

/JMS READ ENTRY CLA 

/0 WC DISC 

/0 CA CORE ADD. -1 

/0 EX TRACK ADD. 

/0 TR ADD. 

/XXX RETURN 

*7000 

7000 

0000 

READ, 

0 

7001 

1600 


TAD 1 READ 

7002 

3621 


DCA 1 PWC 

7003 

2200 


1SZ READ 

7004 

1600 


TAD 1 READ 

7005 

3622 


DCA 1 PCA 

7006 

2200 


1SZ READ 

7007 

1600 


TAD I READ 

7010 

6615 


6615 /DEAL 

7011 

7200 


CLA 

7012 

2200 


1SZ READ 
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7013 

1600 


TAD 1 READ 

7014 

6603 


6603 /DMAR 

7015 

6622 


6622 

7016 

5215 


JMP .-1 

7017 

2200 


1SZ READ 

7020 

5600 


JMP 1 READ 

7021 

7750 

PWC, 

7750 

7022 

7751 

PCA, 

7751 



/CALLING SEOUENCF 



/JMS 

WRITE ENTRY CLA 



/ 0 

WC MINUS NO, 



/0 

CA COKE ADD. 



/0 

UNIT NO 



/0 

BLOCK NO 



/XXX 

RETURN 

7023 

0000 

WRITE 

, 0 

7024 

1623 


TAD I WRITE 

7025 

3307 


DCA WCOUNT 

7026 

2223 


1SZ WRITE 

7027 

1623 


TAD 1 WRITE 

7030 

3310 


DCA CURADD 

7031 

2223 


1SZ WRITE 

7032 

1623 


TAD I WRITE 

7033 

031 1 


AND M7000 

7034 

3312 


DCA UNIT 

7035 

2223 


1SZ WRITE 

7036 

1623 


TAD 1 WRITE 

7037 

3313 


DCA BLK 

7040 

1314 


TAD PBLKNO 

7041 

3716 


DCA 1 PTCA 

7042 

3717 


DCA 1 PT WC 

7043 

1312 


TAD UNIT 

7044 

1320 


TAD Cl 

7045 

6762 


6762 

7046 

4302 

AGAIN. 

, JMS GO 

7047 

1315 

UP, 

TAD BLKNO 

7050 

7041 


CIA 

7051 

1313 


TAD BLK 

70 52 

7500 


SMA 

7053 

5265 


JMP DOWN 

7054 

7041 


CIA 

7055 

7001 


1 AC 

7056 

7041 


CIA 

7057 

3717 


DCA 1 PTWC 

7060 

1321 


TAD C2 

7061 

4302 


JMS GO 

7062 

1321 


TAD C2 

7063 

4302 


JMS GO 

7064 

5247 


JMP UP 

7065 

7640 

DOWN, 

SZA CLA 

7066 

5246 


JMP AGAIN 

7067 

1307 


TAD WCOUNT 

7070 

3717 


DCA 1 PTWC 

7071 

1310 


TAD CURADD 

7072 

3716 


DCA I PTCA 

7073 

1322 


TAD C3 

7074 

4302 


JMS GO 


/ONLY UNIT NO 
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7075 

2223 


1SZ WRITE 

7076 

6761 


6761 /READ FOR ERRORS 

7077 

7710 


SPA CLA 

7100 

5240 


JMP AGAIN-6 

7101 

5623 


JMP 1 WRITE 

7102 

0000 

GO, 

0 

7103 

6764 


6764 

7104 

6771 


6771 

7105 

5304 


JMP .-1 

7106 

5702 


JMP 1 GO 

7107 

0000 

WCOUNT, 

0 

7110 

0000 

CURADD, 

0 

71 1 1 

7000 

M7000, 

7000 

71 12 

0000 

UNIT, 

0 

7113 

0000 

ELK, 

0 

7114 

711 5 

PELKNO, 

BLKNO 

711 5 

0000 

BLKNO, 

0 

7116 

7755 

PTCA, 

7755 

71 17 

7754 

PTWC, 

7754 

7120 

0210 

Cl, 

0210 

7121 

0500 

C2, 

0500 

7122 

0050 

C3, 

0050 

7123 

0000 

PDECT, 

0 

7124 

1340 


TAD CHOP 

7125 

3010 


DCA Z 10 

7126 

1341 


TAD PROP 

7127 

3011 


DCA Z 1 1 

7130 

1342 


TAD RND 

7131 

3343 


DCA MINE 

7132 

141 1 

LOPY, 

TAD 1 Z 1 1 

7133 

3410 


DCA 1 Z 10 

7134 

2343 


ISZ MINE 

7135 

5332 


JMP LOPY 

7136 

7300 


CLA CLL 

7137 

5723 


JMP 1 PDECT 

7140 

7141 

0177 

CHOP, 

1 77 

7142 

7755 

RND, 

-Vi3 

7143 

0000 

MINE, 

0 

7144 

7600 

JOE, 

7600 

7145 

1216 


1216 

71 46 

4210 


4210 

7147 

1217 


1217 

7150 

3620 


3620 

7151 

1222 


1222 

7152 

4210 


4210 

71 53 

5600 


5600 

7154 

0000 


0000 

7155 

6766 


6766 

7156 

3621 


3621 

7157 

6771 


6771 

7160 

5213 


5213 

7161 

5610 


5610 

7162 

0600 


0600 

7163 

7577 


7577 

7164 

7755 


7755 

7165 

7754 


7754 

7166 

0220 


0220 
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7200 

720 1 

7202 

7203 

7204 

7205 

7206 

7207 
7210 
721 1 

7212 

7213 

7214 

7215 

7216 

7217 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7250 

7251 

7252 

7253 

7254 

7255 

7256 

7257 

7260 

7261 

7262 

7263 

7264 

7265 

7266 

7267 

7270 

7271 


1236 

3237 

1236 LOOPPj 
7041 

1237 
3240 
1240 
4245 

1240 
4320 
2237 
5202 
1356 
3010 

1241 
301 1 

1242 
3237 
1410 
341 1 
2237 
5222 

1243 

3350 
1243 

3351 
6601 
661 1 
6766 
5644 

7400 M400P, 


*™ 0 mw OOISTR ' ,P EXECUTES from 7600 

DCA CO UN TP 
TAD M400P 
CIA 

TAD COUNTP 
DCA PLNO 
TAD PLNO 

JMS S /READ TAPE 
TAD BLNO 

JMS R /DISC RESTORE 
1SZ COUNTP 
JMP LOOPP 
TAD PBT 
DCA Z 10 
TAD PSA 
DCA Z li 
TAD P5 
DCA COUNTP 
TAD 1 Z 10 
DCA I Z 11 
ISZ COUNTP 
JMP .-3 
TAD P7576 
DCA WC 
TAD P7576 
DCA CA 
6601 
661 1 

6766 /CLEAR ALL REG IN DISC-TAPE 

JMP I PSTART 

-400 


0000 

COUNTP, 

0 

0000 

PLNO, 

0 

0177 

PSA, 

177 

7773 

P5, 

-5 

7576 

P7576, 

7576 

0200 

PSTART, 

200 

0000 

S, 

0 

7001 


1 AC 

3305 


DCA TPK 

1352 


TAD PTPN 

3355 


DCA TCA 

3354 


DCA T WC 

1306 


TAD D ] 

6762 


6762 

4313 


JMS RUN 

1353 

HERE, 

TAD TEN 

7041 


CIA 

130 5 


TAD TBK 

7 500 


SMA 

5272 


JMP DOWNP 

1376 


TAD MM 1 

3354 


DCA TWC 

1307 


TAD D2 

4313 


JMS RUN 

1307 


TAD D2 

4313 


JMS RUN 

5256 


JMP HERE 
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7272 

7273 

7274 

7275 

7276 

7277 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7310 

731 1 

7312 

7313 

7314 

731 5 

7316 

7317 

7320 

7321 

7322 

7323 

7324 

7325 

7326 

7327 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 

7340 

7341 

7342 

7343 

7344 

7345 

7346 

7347 

7350 

7351 

7352 

7353 

7354 


7650 
5276 
4313 
5256 
1310 
3355 
131 1 
3354 
1312 
4313 
5645 
0000 
0210 
0 500 
7177 
7600 
0030 
0000 
6764 
6771 
5315 
5713 
0000 

3372 

3373 
1374 
3375 
7100 

1372 
7004 

3372 

1373 
7004 

3373 
2375 
5325 
1373 
7006 
7006 
7006 
6615 
7300 
1310 
3351 
131 1 
5364 

0000 

0000 

7753 

0000 


DOWNP, SNA CLA 
JMP SR 
JMS RUN 
JMP HERE 

SR, TAD P7177 

DCA TCA 
TAD A200 
DCA TWC 
TAD D3 
JMS RUN 
JMP 1 S 
TBK, 0 

Dl, 0210 

D2, 0500 

P7177, 7177 

A200, "200 

D3, 0030 

RUN, 0 

6764 
6771 
JMP .-1 
JMP 1 RUN 
R, 0 

DCA TRA 
DCA EAA 
TAD MM7 
DCA GCOUNT 
LUP, CLL 

TAD TRA 
RAL 

DCA TRA 
TAD EAA 
RAL 

DCA EAA 
1SZ GCOUNT 
JMP LUP 
TAD EAA 
RTL 
RTL 
RTL 
6615 
CLA CLL 
TAD P7177 
DCA CA 
TAD A200 
JMP DOWHER 
*7350 
WC, 0 

CA, 0 

PTPN, 7753 

TBN, 0 
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7355 

» i 

1 O/IJ 

7356 

7756 

PBT, 

7357 

6603 

BT, 

7360 

6622 


7361 

5201 


7362 

5604 


7363 

7600 


7364 

3350 

DOWHER 

7365 

1372 


7366 

6605 


7367 

6622 


7370 

5367 


7371 

5720 


7372 

0000 

TRA, 

7373 

0000 

EAA, 

7374 

7771 

MM 7, 

7375 

0000 

GCOUNT, 

7376 

7777 

MM 1, 


7756 

6603 

6622 

5201 

5604 

7600 

DCA WC 

TAD TRA 

6605 

6622 

JMP .-1 

JMP 1 R 

0 

0 

-7 

0 

-1 















